home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / GAME / Xconq 7.0.1.sit / Xconq 7.0.1 / lib / makedir.pl < prev    next >
Perl Script  |  1995-08-22  |  466b  |  21 lines
  1. #! /usr/unsupported/bin/perl
  2. foreach $file (@ARGV) {
  3.     open(IMF,"<$file") || warn "Cannot open $file.¥n";
  4.     while (<IMF>) {
  5.     if (/imf¥s*¥"([^¥"]*)¥"/) {
  6.         $imf = $1;
  7.         if ($where{$imf} && $where{$imf} ne $file) {
  8.         warn "Family $imf present in files $where{$imf} and $file.¥n";
  9.         } else {
  10.         $where{$imf} = $file;
  11.         }
  12.     }
  13.     }
  14. }
  15.  
  16. print "ImageFamilyName FileName¥n";
  17. foreach $imf (sort keys(%where)) {
  18.     print "$imf $where{$imf}¥n";
  19. }
  20. print ". .¥n";
  21.